The Cartoon Guide to Physics/The Cartoon Guide to Physics.iso/pc/physdata/glossary.dir/00063.ls

Text File | 1995-09-10 | 498 b | 15 lines

on mouseDown
  global StartLine, EndLine
  set the castNum of sprite 34 to the number of cast "up"
  set the foreColor of cast 52 to 255
  if the number of lines in field "termpath" > (EndLine + 1) then
    puppetSound("Click")
    set EndLine to EndLine + 1
    set StartLine to StartLine + 1
    put line StartLine to EndLine of field "termPath" into field "path"
    if the number of lines in field "termpath" = (EndLine + 1) then
      set the castNum of sprite 28 to 0
    end if
  end if
end